inherited FCadastroNivel: TFCadastroNivel
  Top = 162
  Caption = 'Cadastro Grupo de Usu'#225'rios'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'NIV_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NIV_NOME'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label1: TLabel [0]
          Left = 10
          Top = 49
          Width = 40
          Height = 16
          Caption = 'Codigo'
        end
        object Label2: TLabel [1]
          Left = 98
          Top = 49
          Width = 34
          Height = 16
          Caption = 'Nome'
          FocusControl = DBEdit2
        end
        object Label3: TLabel [2]
          Left = 456
          Top = 48
          Width = 107
          Height = 16
          Caption = 'Menbros do Grupo'
        end
        inherited panel2: TPanel
          inherited SBAtualiza: TSpeedButton
            Left = 235
            Top = 10
          end
          inherited DBNavigator1: TDBNavigator
            Left = 720
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          Top = 399
          Height = 85
          inherited LUsuario: TLabel
            Left = 9
          end
          inherited LDataMod: TLabel
            Left = 9
          end
          inherited LNRegistros: TLabel
            Left = 178
          end
          inherited BtnConsuta: TBitBtn
            Width = 87
            TabOrder = 4
          end
          object BtnPermissao: TBitBtn
            Left = 532
            Top = 5
            Width = 100
            Height = 25
            Caption = '&Permiss'#245'es'
            TabOrder = 2
            OnClick = BtnPermissaoClick
            Glyph.Data = {
              1E060000424D1E06000000000000360000002800000017000000150000000100
              180000000000E8050000C30E0000C30E00000000000000000000BDBDBDBCBCBC
              BDBEBEBCBEBE1F1F1FDEDE5D89891F000000000000000000E9E93EE9E93E0000
              000000003EE9E9891F89101084000000BEBEBEBEBEBE000000891F89891F8900
              0000BDBDBDBDBDBDBCBEBE1F1F1FF4F41F7F7F00000000FFFF00FFFF00000000
              FFFF00000000FFFF00000000000000007F7F00FFFF000000000000891F89891F
              89000000000000000000BDBDBDBDBDBD3C3C3C98984BFFFF00000000FFFF00FF
              FF00FFFF00000000000000000000FFFF0000000000000000FFFF007F7F007F7F
              BFBFBF000000891F89000000BEBEBE000000BDBDBDBDBDBDBDBDBD1414140000
              007F7F00FFFF00FFFF000000007F7F7FBFBFBF7F7F7F000000007F7F00FFFF00
              FFFF007F7FFFFFFFBFBFBF000000000000BEBEBEBEBEBE000000BDBDBDBDBDBD
              BDBDBD1414140000007F7F00FFFF000000007F7F7FBFBFBF7F7F7FBFBFBF0000
              0000FFFF00FFFF007F7FFFFFFFBFBFBFBFBFBF000000BEBEBEBEBEBEBEBEBE00
              0000BCBDBDBDBDBDBCBCBCE8E8E80000000000000000007F7F7FBFBFBF7F7F7F
              BFBFBF00000000000000FFFF007F7FFFFFFF7F7F7F7F7F7F0000000000000000
              00BEBEBEBEBEBE000000BDBDBDBDBDBDBDBDBDBDBDBDFFFFFF0000007F7F7FBF
              BFBF7F7F7F000000000000000000000000000000007F7FBFBFBFFFFFFFFFFFFF
              FFFFFFFFFFFFBEBEBE000000BEBEBE000000BDBDBDBCBCBCBDBDBD4B4B4B0000
              000000000000007F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7F000000BF
              BFBFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF000000BEBEBE000000BDBDBDBDBDBD
              BDBDBD2F2F2F000000000000000000BFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F
              7F000000000000BFBFBFFFFFFFFFFFFFFFFFFF7F7F7F000000000000BEBEBE00
              0000BDBDBDBDBDBD2F2F2F2F2F2F0000000000000000007F7F7FBFBFBF7F7F7F
              BFBFBF7F7F7FBFBFBF7F7F7F000000BFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
              FF000000BEBEBE000000BDBDBDBDBDBD2F2F2F000000000000000000000000BF
              BFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF000000000000FFFFFFFFFFFF
              FFFFFFFFFFFFFFFFFFBEBEBE000000000000BDBDBDBDBDBD2F2F2F0000000000
              00000000BFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF00
              0000FFFFFFFFFFFF7F0000FFFFFFFFFFFF000000BEBEBE000000BDBDBD2F2F2F
              2F2F2F000000000000000000000000BFBFBF7F7F7FBFBFBF7F7F7F000000BFBF
              BFBFBFBF000000BFBFBFFFFFFFFFFFFF7F7F7F7F00007F7F7F000000BEBEBE00
              0000BDBDBD2F2F2F000000000000000000000000000000000000BFBFBF7F7F7F
              BFBFBF000000000000000000BFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
              FF000000BEBEBE000000BDBDBD2F2F2F00000000000000000000000000000000
              0000000000BFBFBF7F7F7FBFBFBF7F7F7F000000007F7F007F7F000000FFFFFF
              000000FFFFFFFFFFFF000000000000000000BDBDBD2F2F2F2F2F2F0000000000
              000000000000000000000000007F7F7FBFBFBF7F7F7FBFBFBF000000007F7F00
              7F7F00FFFF007F7F00FFFF007F7F007F7F00FFFF000000000000BDBDBDBDBDBD
              2F2F2F2F2F2F000000000000000000000000000000007F7F7F7F7FBFBFBF7F7F
              7F000000007F7F00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF3EE9E900000000
              0000BDBDBDBDBDBDBDBDBD2F2F2F000000000000000000000000000000000000
              000000000000000000000000007F7F00FFFF00FFFF00FFFF00FFFF00FFFF3EE9
              E9000000BEBEBE000000BDBDBDBDBDBDBDBDBD2F2F2F2F2F2F00000000000000
              000000000000000000000000000000000000000000000000FFFF00FFFF00FFFF
              00FFFF3EE9E9000000BEBEBEBEBEBE000000BDBDBDBDBDBDBDBDBDBDBDBD2F2F
              2F2F2F2F2F2F2F00000000000000000000000000000000000000000000000000
              0000000000000000000000000000BEBEBEBEBEBEBEBEBE000000BDBDBDBDBDBD
              BDBDBDBDBDBDBDBDBDBDBDBD2F2F2F000000000000000000000000000000BEBE
              BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE00
              0000}
          end
        end
        object DBEdit2: TDBEdit
          Left = 98
          Top = 69
          Width = 350
          Height = 24
          DataField = 'NIV_NOME'
          DataSource = dsCadastro
          TabOrder = 2
        end
        object edCodigo: TDBEdit
          Left = 8
          Top = 69
          Width = 81
          Height = 24
          DataField = 'NIV_CODIGO'
          DataSource = dsCadastro
          ReadOnly = True
          TabOrder = 3
        end
        object DBGrid1: TDBGrid
          Left = 456
          Top = 68
          Width = 320
          Height = 313
          Ctl3D = False
          DataSource = dsUsuario
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          TabOrder = 4
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'USU_NOME'
              Title.Caption = 'Usu'#225'rio'
              Visible = True
            end>
        end
      end
    end
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from Nivel'
      'order by Niv_Codigo')
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroNIV_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'NIV_CODIGO'
    end
    object cdsCadastroNIV_NOME: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'NIV_NOME'
      Size = 60
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
  end
  object DSNivel: TDataSource
    Left = 200
    Top = 48
  end
  object Qusuario: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT'
      '  USUARIO.USU_NOME'
      'FROM'
      '  USUARIO'
      'WHERE'
      '  USUARIO.USU_NIVEL = :NIV_CODIGO')
    Left = 256
    Top = 160
    ParamData = <
      item
        DataType = ftInteger
        Name = 'NIV_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
  end
  object dsUsuario: TDataSource
    AutoEdit = False
    DataSet = Qusuario
    Left = 256
    Top = 168
  end
end
